home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0040_Wait for Vertical Retrace.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-02  |  480b  |  15 lines
  1. {
  2. SANTERI SALMINEN
  3.  
  4. > how can i wait For the vertical retrace, in Pascal.
  5.  
  6. Some routines For retraces:
  7. As you can see, $3DA reveals all of them.
  8. }
  9.  
  10.  Repeat Until Port[$3DA] And 8 = 8; { Wait For Vertical retrace              }
  11.  Repeat Until Port[$3DA] And 8 = 0; { Wait For the end of Vertical retrace   }
  12.  Repeat Until Port[$3DA] And 1 = 1; { Wait For Horizontal retrace            }
  13.  Repeat Until Port[$3DA] And 1 = 0; { Wait For the end of Horizontal retrace }
  14.  
  15.